unit QueryModuleInterface;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs;

type
  IQueryBase=interface

  end;

  function CreateQuery(const QUERYID:string;AOwner:TComponent):TForm;

implementation

uses unOrderQRY,unStockQRY;

function CreateQuery(const QUERYID:string;AOwner:TComponent):TForm;
begin
  if QUERYID='ID_ORDERQRY' then
  begin
    result:=TfrmOrderQRY.Create(Application);
  end;

  if QUERYID='ID_STOCKQRY' then
    result:=TfrmStockQRY.Create(AOwner);
end;

end.
